set spvoice = createobject("SAPI.SpVoice")
set spfilestream = createobject("SAPI.SpFileStream")
rem spfilestream .Format.Type = 6
spfilestream.open WScript.Arguments(0),3
Set spvoice.AudioOutputStream = spfilestream
spvoice.Speak WScript.Arguments(1)
spfilestream.close